home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_22_1988_Transactor_Publishing.d64 / file name parser (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  66 lines
  1. 100 print"start address  49152"
  2. 110 printchr$(145);tab(13);
  3. 120 inputsa:a=sa
  4. 130 ms=int(a/256):ls=a-ms*256
  5. 140 ifls<>0thenprint"must be even page boundry":end
  6. 150 readv:ifv=-1then190
  7. 160 ch=ch+v
  8. 170 if(v=192)or(v=193)thenv=v-192:v=v+ms
  9. 180 pokea,v:a=a+1:goto150
  10. 190 ifch<>43286thenprint"checksum error.":end
  11. 200 print"enhanced filename syntax enabled."
  12. 210 sys sa
  13. 220 print
  14. 230 print"to change default device use: "
  15. 240 print"    poke";sa+134;",device"
  16. 250 end
  17. 260 :
  18. 270 data169,031,160,192,141,026,003,140
  19. 280 data027,003,169,037,160,192,141,048
  20. 290 data003,140,049,003,169,045,160,192
  21. 300 data141,050,003,141,051,003,096,032
  22. 310 data051,192,076,074,243,072,032,051
  23. 320 data192,104,076,165,244,032,051,192
  24. 330 data076,237,245,165,187,141,021,193
  25. 340 data165,188,141,022,193,165,186,141
  26. 350 data039,193,165,185,141,040,193,165
  27. 360 data183,141,042,193,032,020,193,201
  28. 370 data035,240,008,201,068,240,004,201
  29. 380 data080,208,032,162,000,141,041,193
  30. 390 data032,020,193,141,043,193,201,058
  31. 400 data240,034,201,044,240,030,201,048
  32. 410 data144,009,201,058,176,005,232,224
  33. 420 data003,208,015,165,183,240,010,165
  34. 430 data186,201,001,208,004,169,008,133
  35. 440 data186,096,208,212,224,000,240,235
  36. 450 data165,187,141,021,193,165,188,141
  37. 460 data022,193,165,183,141,042,193,032
  38. 470 data020,193,173,021,193,133,003,173
  39. 480 data022,193,133,004,138,032,044,193
  40. 490 data176,048,165,005,141,039,193,032
  41. 500 data020,193,201,058,240,006,201,044
  42. 510 data240,035,208,243,173,021,193,133
  43. 520 data187,173,022,193,133,188,173,042
  44. 530 data193,133,183,173,040,193,133,185
  45. 540 data173,039,193,133,186,201,001,208
  46. 550 data001,096,076,123,192,162,000,173
  47. 560 data021,193,133,003,173,022,193,133
  48. 570 data004,032,020,193,201,058,240,014
  49. 580 data232,224,004,240,008,201,048,144
  50. 590 data004,201,058,144,236,096,138,240
  51. 600 data252,032,044,193,165,005,141,040
  52. 610 data193,076,196,192,173,255,255,041
  53. 620 data127,238,021,193,208,003,238,022
  54. 630 data193,206,042,193,201,000,096,000
  55. 640 data000,000,000,000,141,123,193,169
  56. 650 data000,168,174,123,193,133,005,133
  57. 660 data006,024,032,085,193,176,021,177
  58. 670 data003,041,015,024,101,005,133,005
  59. 680 data144,005,230,006,056,240,005,024
  60. 690 data200,202,208,230,096,006,005,038
  61. 700 data006,176,028,165,006,072,165,005
  62. 710 data072,006,005,038,006,176,017,006
  63. 720 data005,038,006,176,011,104,101,005
  64. 730 data133,005,104,101,006,133,006,096
  65. 740 data104,104,096,000,-1
  66.